home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / DA / A / AsyncApplinkDA.cpt / AsyncApplinkDA / Async Appletalk.rsrc / STR#_1281.txt < prev   
Encoding:
Text File  |  1986-12-24  |  1.2 KB  |  117 lines
  1. rem This program dials a Cermetek 1200 baud modem
  2.  
  3. rem The Cermetek is not Hayes compatible.
  4.  
  5. rem STR# ID=128 contains the current dialing program.  To change, renumber the current #128; set the new ID to 128 (use Get Info with ResEdit).
  6.  
  7. rem By Rich Brown.
  8.  
  9. rem 5
  10.  
  11. rem Version 1.0b1 November 1986
  12.  
  13. rem 7
  14.  
  15. rem This example uses each statement
  16.  
  17. rem in the dialing language.
  18.  
  19. goto 12
  20.  
  21. display It is an error to display this message.
  22.  
  23. display     Cermetek Dialer V1.0B1
  24.  
  25. count 3
  26.  
  27. send 
  28.  
  29.  
  30. receive 120 46
  31.  
  32. if NUMBER 31
  33.  
  34. loop
  35.  
  36. display No response from modem.
  37. Check your cables, etc.
  38.  
  39. goto 54
  40.  
  41. rem (20) Send a command to modem.
  42.  
  43. send ATE0
  44.  
  45.  
  46. count 4
  47.  
  48. receive 75 10
  49.  
  50. if ok 31
  51.  
  52. loop
  53.  
  54. rem (26) No response from Modem.
  55.  
  56. display No response from modem.
  57. Check your cables, etc.
  58.  
  59. goto 54
  60.  
  61. rem (29)
  62.  
  63. rem Modem responded, try dialing.
  64.  
  65. display               Dialing ...
  66.  
  67. rem (31) 
  68.  
  69. dial
  70.  
  71. send 
  72.  
  73.  
  74. count 8
  75.  
  76. receive 300 10
  77.  
  78. if data mode 47
  79.  
  80. if error 43
  81.  
  82. if busy 45
  83.  
  84. loop
  85.  
  86. display            Dialing Failed.
  87.  
  88. goto 54
  89.  
  90. display          Error, try again.
  91.  
  92. goto 54
  93.  
  94. display           Busy, try again.
  95.  
  96. goto 54
  97.  
  98. display              Connected.
  99.  
  100. rem Wait for NED to get ready (48)
  101.  
  102. wait 120
  103.  
  104. rem send 
  105.  
  106.  
  107. rem receive 90 64
  108.  
  109. stop 0
  110.  
  111. rem error return (53)
  112.  
  113. wait 180
  114.  
  115. stop 1
  116.  
  117.